home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / REXX / REXX.lha / ShowConfig.wrx < prev    next >
Encoding:
Text File  |  1994-11-15  |  546 b   |  40 lines
  1. /*
  2.  *
  3.  * Script für WRITE 3.368 © 1989 - 1993 by Tim Teulings
  4.  * Dieses REXX-Script zeigt alle geladen Konfigurationen an
  5.  *
  6.  */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. IF ~show('P',"WRITE")
  11. THEN DO
  12.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  13.  exit 10
  14. END
  15.  
  16. ADDRESS "WRITE"
  17.  
  18. 'VERSIONCHECK 31090 "ShowConfig.wrx"'
  19. IF RC~=0 THEN DO
  20.   exit 10
  21. END
  22.  
  23. CLEARLIST 0
  24.  
  25. ID = 0
  26. NEXTED ID
  27.  
  28. do while RC=0
  29.  'GETVAR "_CurrentID"'
  30.  ID = RESULT
  31.  
  32.  'GETVAR "_CurrentConfig"'
  33.  Config = Result
  34.  ADDLIST "(" || Config || ")" 0 "{@NODUP}"
  35.  
  36.  NEXTED ID
  37. end
  38.  
  39. SHOWLIST 0 0
  40.